10 OPEN 5,2,3,CHR$(6)+CHR$(0)
20 :
30 REM  - MORE PGM. LINES -
40 :
50 INPUT" BAUD RATE > ";BAUD
60 A=INT(1022730/BAUD/2-100): C=INT(1022730/BAUD)
70 D=INT(A/256): E=A-D*256: POKE 661,E: POKE 662,D
80 D=INT(C/256): E=C-D*256: POKE 665,E: POKE 666,D